-- background: 2627 from stack: in
-- bmap block id: 3225
-- flags: 4000
-- background id: 0
-- name: calculator
----- HyperTalk script -----

function rawSeconds input
get input
convert it to seconds
put the date into history
convert history to seconds
return it - history
end rawSeconds

function stripExcess theTime
get abs(theTime)
convert it to long time

if char 1 to 3 of it is "12:" then delete char 1 to 3 of it
delete char offset("m",it) - 2 to offset("m",it) of it

if theTime < 0 then return "-" & it
else return it
end stripExcess




-- part 1 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=22 top=55 right=213 bottom=190
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelectionsA


-- part 2 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=55 right=69 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 1
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 2"
end returnInField



-- part 3 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=192 top=215 right=230 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: AccumTimeA


-- part 4 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=192 top=232 right=247 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: TimeLeftA


-- part 6 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=288 top=55 right=213 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelectionsB


-- part 7 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=55 right=70 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 1
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 2"
end returnInField


-- part 8 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=458 top=215 right=230 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: AccumTimeB


-- part 9 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=458 top=232 right=247 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: TimeLeftB


-- part 11 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=453 top=5 right=20 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: TapeLength
----- HyperTalk script -----
on mouseDown
  put "30 min;45 min;60 min;75 min;80 min;90 min;" & "100 min;110 min;120 min" into choices

  put the value of 1 into lastItem
  get topLeft of target
  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if the result is not empty then put the result

  if item 1 of it is not empty then
    put item 1 of it into bkgnd fld "TapeLength"
  end if
  click at location of button "calculate"
end mouseDown


-- part 12 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=68 right=83 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 2
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 3"
end returnInField



-- part 13 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=81 right=96 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 3
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 4"
end returnInField



-- part 14 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=94 right=109 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 4
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 5"
end returnInField



-- part 15 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=107 right=122 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 5
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 6"
end returnInField



-- part 16 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=120 right=136 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 6
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 7"
end returnInField



-- part 17 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=133 right=148 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 7
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 8"
end returnInField



-- part 18 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=146 right=161 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 8
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 9"
end returnInField



-- part 19 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=159 right=173 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 9
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 10"
end returnInField



-- part 20 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=172 right=191 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 10
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 11"
end returnInField



-- part 21 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=185 right=201 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 11
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesA 12"
end returnInField



-- part 22 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=192 top=198 right=213 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesA 12
----- HyperTalk script -----
on returnInField
  closeField
end returnInField



-- part 23 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=68 right=83 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 2
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 3"
end returnInField


-- part 24 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=81 right=96 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 3
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 4"
end returnInField


-- part 25 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=94 right=109 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 4
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 5"
end returnInField


-- part 26 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=107 right=122 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 5
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 6"
end returnInField


-- part 27 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=120 right=135 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 6
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 7"
end returnInField


-- part 28 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=133 right=148 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 7
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 8"
end returnInField


-- part 29 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=146 right=161 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 8
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 9"
end returnInField


-- part 30 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=159 right=174 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 9
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 10"
end returnInField


-- part 31 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=172 right=187 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 10
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 11"
end returnInField


-- part 32 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=185 right=200 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 11
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 12"
end returnInField


-- part 33 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=458 top=198 right=213 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: SelTimesB 12
----- HyperTalk script -----
on returnInField
  click at the location of field "SelTimesB 1"
end returnInField


-- part 36 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=334 top=320 right=334 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: newCalc


-- part 37 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=86 top=302 right=333 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CDswitch
----- HyperTalk script -----
on mouseUp
  go to any card of background "CD" of stack "AudioVideo Library"
end mouseUp



-- part 38 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=337 top=292 right=308 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: master